BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/C-Cl/CCE.cpt/CCE 1.0/background_2573.txt

Text File | 1987-10-29 | 31.8 KB | 1,533 lines

-- background: 2573 from stack: in.0
-- bmap block id: 2225
-- flags: 0000
-- background id: 0
-- name:


-- part 1 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=33 top=67 right=85 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  Runner
end mouseup




-- part 2 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=33 top=84 right=102 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  runner
end mouseup



-- part 3 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=33 top=101 right=119 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  runner
end mouseup


-- part 4 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=33 top=118 right=136 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  runner
end mouseup


-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=33 top=135 right=153 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  runner
end mouseup


-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=33 top=152 right=170 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  runner
end mouseup


-- part 7 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=33 top=169 right=187 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  runner
end mouseup


-- part 8 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=33 top=186 right=204 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  runner
end mouseup


-- part 9 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=33 top=203 right=221 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  runner
end mouseup


-- part 10 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=196 top=67 right=85 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  grade
end mouseup



-- part 11 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=196 top=84 right=102 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  grade
end mouseup


-- part 12 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=196 top=101 right=119 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  grade
end mouseup


-- part 13 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=196 top=118 right=136 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  grade
end mouseup


-- part 14 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=196 top=135 right=153 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  grade
end mouseup


-- part 15 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=196 top=152 right=170 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  grade
end mouseup


-- part 16 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=196 top=169 right=187 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  grade
end mouseup


-- part 17 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=196 top=186 right=204 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  grade
end mouseup


-- part 18 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=196 top=203 right=221 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  grade
end mouseup


-- part 19 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=227 top=67 right=85 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  place
end mouseup


-- part 20 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=227 top=84 right=102 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  place
end mouseup


-- part 21 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=227 top=101 right=119 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  place
end mouseup


-- part 22 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=227 top=118 right=136 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  place
end mouseup


-- part 23 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=227 top=135 right=153 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  place
end mouseup


-- part 24 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=227 top=152 right=170 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  place
end mouseup


-- part 25 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=227 top=169 right=187 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  place
end mouseup


-- part 26 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=227 top=186 right=204 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  place
end mouseup


-- part 27 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=227 top=203 right=221 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  place
end mouseup


-- part 28 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=258 top=67 right=85 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  time
end mouseup


-- part 29 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=258 top=84 right=102 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  time
end mouseup



-- part 30 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=258 top=101 right=119 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  time
end mouseup



-- part 31 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=258 top=118 right=136 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  time
end mouseup



-- part 32 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=258 top=135 right=153 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  time
end mouseup



-- part 33 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=258 top=152 right=170 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  time
end mouseup



-- part 34 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=258 top=169 right=187 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  time
end mouseup



-- part 35 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=258 top=186 right=204 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  time
end mouseup



-- part 36 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=258 top=203 right=221 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  time
end mouseup



-- part 48 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=354 top=67 right=85 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 49 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=354 top=84 right=102 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 50 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=354 top=101 right=119 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 51 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=354 top=118 right=136 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 52 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=354 top=135 right=153 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 53 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=354 top=152 right=170 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 54 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=354 top=169 right=187 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 55 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=354 top=186 right=204 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 56 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=354 top=203 right=221 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 57 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=32 bottom=30
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 58 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=411 top=65 right=84 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Difference
----- HyperTalk script -----
on mouseUp
  repeat with xx = 28 to 36
    put xx-27 into x0 -- 1
    put xx+32 into x1  --46
    put xx+20 into x2  -- 37
    if background field id x0 is not empty then
      put empty into background field id x2
      ----------
      if background field xx is empty then
        put "00:00" into background field id xx
      end if
      if background field id x1 is empty then
        put "00:00" into background field id x1
      end if
      -----------
      put the number of chars in background field id xx into len
      if len < 5 then
        put "0" before background field id xx
      end if
      put the number of chars in background field id x1 into len
      if len < 5 then
        put "0" before background field id x1
      end if
      -----------
      put offset(":",background field id xx) into col
      if col <>3 then
        beep
        put "00:00" into background field id xx
      end if
      -----------
      put offset(":",background field id x1) into col
      if col <>3 then
        beep
        put "00:00" into background field id x1
      end if
      -----------
      -- calculate the total seconds of result time
      get char 1  of background field id xx
      put it into calc1
      get char 2 of background field id xx
      put it after calc1
      put calc1 * 60 into calc1
      get char 4 of background field id xx
      put it into calc2
      get char 5 of background field id xx
      put it after calc2
      add calc2 to calc1
      -- now have total seconds of result time in calc1
      -----------
      -- calculate the total seconds of previous time
      get char 1 of background field id x1
      put it into calc3
      get char 2 of background field id x1
      put it after calc3
      put calc3 * 60 into calc3
      get char 4 of background field id x1
      put it into calc4
      get char 5 of background field id x1
      put it after calc4
      add calc4 to calc3
      --
      put calc3-calc1 into background field id x2

    end if
  end repeat
end mouseUp



-- part 60 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=306 top=67 right=85 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  previous
end mouseup


-- part 61 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=306 top=84 right=102 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  previous
end mouseup


-- part 62 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=306 top=101 right=119 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  previous
end mouseup


-- part 63 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=306 top=118 right=136 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  previous
end mouseup


-- part 64 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=306 top=135 right=153 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  previous
end mouseup


-- part 65 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=306 top=152 right=170 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  previous
end mouseup


-- part 66 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=306 top=169 right=187 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  previous
end mouseup


-- part 67 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=306 top=186 right=204 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  previous
end mouseup


-- part 68 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=306 top=203 right=221 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  previous
end mouseup


-- part 69 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=133 top=2 right=27 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: team
----- HyperTalk script -----
on mouseup
  get background field "team"
  put it into oldname
  ask "Replace " & quote & oldname & quote &" With ?" with oldname
  if it contains oldname then
    put oldname into background field "Team"
  else
    put it into background field "Team"
  end if
  if background field "Team" is empty then
    put oldname into background field "Team"
  end if

  play harpsichord "ee c"
end mouseup



-- part 70 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=412 top=138 right=156 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add New
----- HyperTalk script -----
on mouseUp
  domenu "New Card"
  ask "What is the name of this school" with "Unknown"
  put it into background field "Team"
  play harpsichord "ee c"
end mouseUp



-- part 71 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=452 top=316 right=339 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  Go Next Card
end mouseUp



-- part 72 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=405 top=315 right=338 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go Previous Card
end mouseUp



-- part 73 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=410 top=185 right=205 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Team
----- HyperTalk script -----
on mouseUp
  answer "Delete " & background field "Team" with "Remove" or "Keep Them"
  if it contains "Remove" then

    domenu "Delete Card"
    answer "Team removed from stack" with "OK"
  else
    answer "Team will stay in the stack" with "OK"
  end if
  play harpsichord "ee c"
end mouseUp



-- part 74 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=411 top=88 right=109 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear Previous
----- HyperTalk script -----
on mouseUp
  answer "Move Time to Previous Time ?" with "Yes Move" or "No Don't"
  if it contains "Yes Move" then
    repeat with xx = 28 to 36
      put xx+32 into x1
      put xx+20 into x2
      put background field id xx into background field id x1
      put empty into background field id xx
      put empty into background field id x2
    end repeat
  end if
  play harpsichord "ee c"
end mouseUp



-- part 76 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=412 top=113 right=133 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear All
----- HyperTalk script -----
on mouseUp
  answer "Clear All Data from this Card ?" with "Yes All" or "No None"
  if it contains "Yes All" then
    repeat with xx = 1 to 9
      --
      put xx into x1
      put xx+9 into x2
      put xx+18 into x3
      put xx+27 into x4
      put xx+59 into x5
      put xx+47 into x6
      --
      put empty into background field id x1
      put empty into background field id x2
      put empty into background field id x3
      put empty into background field id x4
      put empty into background field id x5
      put empty into background field id x6
    end repeat
  end if
  repeat with x = 80 to 85
    put empty into bkgnd field id x
  end repeat
  put empty into bkgnd field id 69
  play harpsichord "ee c"
end mouseUp



-- part 78 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=410 top=161 right=180 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Move up
----- HyperTalk script -----
on mouseUp
  repeat with x1 = 1 to 8
    if background field x1 is empty then
      -- move all field
      repeat with y1 = x1 to 8
        put y1+1 into y2
        if background field id y2 is empty then
        else
          put background field id y2 into background field id x1
          put empty into background field id y2
          --
          put y2+9 into y3
          put x1+9 into x3
          put background field id y3 into background field id x3
          put empty into background field id y3
          --
          put y2+18 into y4
          put x1+18 into x4
          put background field id y4 into background field id x4
          put empty into background field id y4
          --
          put y2+27 into y5
          put x1+27 into x5
          put background field id y5 into background field id x5
          put empty into background field id y5
          --
          put y2+59 into y6
          put x1+59 into x6
          put background field id y6 into background field id x6
          put empty into background field id y6
          --
          put y2+47 into y7
          put x1+47 into x7
          put background field id y7 into background field id x7
          put empty into background field id y7
          --
          exit repeat
        end if
      end repeat
    end if
  end repeat
  play boing
end mouseUp



-- part 80 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=112 top=241 right=259 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Team Score


-- part 81 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=112 top=265 right=283 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Team Place


-- part 82 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=113 top=291 right=309 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Team Grade


-- part 83 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=320 top=240 right=258 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Team Average


-- part 84 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=320 top=266 right=284 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Team Range


-- part 85 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=320 top=291 right=309 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Team Time


-- part 86 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=410 top=264 right=286 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Final Stats
----- HyperTalk script -----
on mouseUp
  Sort -- make sure its ready for getting totals
  --
  put 0 into ctotal
  --
  repeat with t = 28 to 32
    --
    put the number of chars in bkgnd field id t into len
    if len <5 then put "0" before bkgnd field id t

    put offset(":",bkgnd field id t) into col
    if col<>3 then put empty into bkgnd field id t
    --
    if bkgnd field id t is not empty then
      get char 1 of bkgnd field id t
      put it into calc1
      get char 2 of bkgnd field id t
      put it after calc1
      --
      put calc1 * 60 into calc1
      --
      get char 4 of bkgnd field id t
      put it into calc2
      get char 5 of bkgnd field id t
      put it after calc2
      --
      add calc2 to calc1
      add calc1 to ctotal
      --
    end if
    --
  end repeat
  --put ctotal into bkgnd field "Team time" -- only seconds
  -- convert to min:sec
  put trunc(ctotal/60) into bkgnd field "Team Time"
  put ":" after bkgnd field "Team Time"
  if (ctotal mod 60) < 10 then put "0" after bkgnd field "Team time"
  put (ctotal mod 60) after bkgnd field "team time"
  --
  put ctotal/5 into ATotal
  --
  put trunc(Atotal/60) into bkgnd field "Team Average"
  put ":" after bkgnd field "Team Average"
  if (Atotal mod 60) < 10 then put "0" after bkgnd field "Team Average"
  put (Atotal mod 60) after bkgnd field "team Average"
  --
  -- Team Grade
  put 0 into xgrade
  repeat with g = 10 to 14
    if bkgnd field id g is not empty then
      get bkgnd field id g
      put it+xgrade into xgrade
    end if
  end repeat
  put xgrade into bkgnd field "Team Grade"
  --
  -- team score = total of 5 top place
  put 0 into xplace
  repeat with p = 19 to 23
    if bkgnd field id p is not empty then
      get bkgnd field id p
      put it + xplace into xplace
    end if
  end repeat
  put xplace into bkgnd field "Team Score"
  --
  -- team Range
  get char 1 of bkgnd field id 28
  put it into calc1
  get char 2 of bkgnd field id 28
  put it after calc1
  --
  put calc1 * 60 into calc1
  --
  get char 4 of bkgnd field id 28
  put it into calc2
  get char 5 of bkgnd field id 28
  put it after calc2
  --
  add calc2 to calc1
  put calc1 into FirstPlace
  --
  get char 1 of bkgnd field id 32
  put it into calc1
  get char 2 of bkgnd field id 32
  put it after calc1
  --
  put calc1 * 60 into calc1
  --
  get char 4 of bkgnd field id 32
  put it into calc2
  get char 5 of bkgnd field id 32
  put it after calc2
  --
  add calc2 to calc1
  put calc1 into LastPlace
  put LastPlace-FIrstPlace into ctotal
  --
  put trunc(ctotal/60) into bkgnd field "Team Range"
  put ":" after bkgnd field "Team Range"
  if (ctotal mod 60) < 10 then put "0" after bkgnd field "Team Range"
  put (ctotal mod 60) after bkgnd field "team Range"

  noise
end mouseUp



-- part 87 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=0 top=321 right=338 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort Team Place
----- HyperTalk script -----
on mouseUp
  sort by field "Team Score"
  go to first card
  put number of cards into xcard
  repeat with pointer = 1 to xcard
    go to card pointer
    put pointer into bkgnd field "Team Place"
  end repeat
end mouseUp